﻿<!--#include file="config.asp"-->
<%
session.CodePage = 65001

Dim connstr,conn
Set Conn = Server.CreateObject("ADODB.Connection")
'Connstr = "driver={sqlite3 odbc driver};database="+Server.Mappath(sitepath&dbpath)
'ConnStr = "Driver={SQL Server};Server=(local)\SQLExpress;DataBase=lastword;Uid=sa;Pwd=19850816;"
'ConnStr = "Driver={SQL Server};Server=(211.147.232.221);Database=DB6BB5;Uid=DB6BB5;Pwd=c94271;"
'ConnStr = "Provider=SQLOLEDB;Data Source=211.147.232.221;Initial Catalog=DB6BB5;User ID=DB6BB5;Password=c94271;"
ConnStr = "Provider=SQLOLEDB;Persist Security Info=False;User ID=DB6BB5;Password=c94271;Data Source=(211.147.232.221)\SQLExpress"
Response.Write("debug->" & Conn.State & "<br/>")
Conn.Open Connstr
if err then
	err.clear
	Response.end
end If
'Response.Write("debug->" & Conn.State & "<br/>")
%>
<!--#include file="function.asp"-->